home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Hyper / Hyperj-Hz / HYPERWORLD.sit / HYPERWORLD / HyperWorld / HyperWorld / card_10376.txt < prev    next >
Encoding:
Text File  |  1987-10-14  |  7.1 KB  |  265 lines
  1. -- card: 10376 from stack: in
  2. -- bmap block id: 12368
  3. -- flags: 0000
  4. -- background id: 2212
  5. -- name: Editor
  6. ----- HyperTalk script -----
  7. on idle
  8.   put the time into card field "Time"
  9.   pass idle
  10. end idle
  11. on openCard
  12.   set the hilite of card button id 10 to true
  13.   set the hilite of card button id 10 to false
  14.   set the hilite of card button id 10 to true
  15.   set the hilite of card button id 10 to false
  16.   set the hilite of card button id 10 to true
  17.   set the hilite of card button id 10 to false
  18.   set the hilite of card button id 10 to true
  19.   set the hilite of card button id 10 to false
  20.   set the hilite of card button id 10 to true
  21.   set the hilite of card button id 10 to false
  22.   set the hilite of card button id 10 to true
  23.   set the hilite of card button id 10 to false
  24.   set the hilite of card button id 10 to true
  25.   set the hilite of card button id 10 to false
  26.   set the hilite of card button id 10 to true
  27.   set the hilite of card button id 10 to false
  28.   set the hilite of card button id 10 to true
  29.   set the hilite of card button id 10 to false
  30.   set the hilite of card button id 10 to true
  31.   set the hilite of card button id 10 to false
  32. end openCard
  33.  
  34.  
  35. -- part 5 (button)
  36. -- low flags: 00
  37. -- high flags: 8000
  38. -- rect: left=451 top=83 right=127 bottom=511
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 1004 / 1004
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: Save Text
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   Open file field "loc title"
  50.   Write field "loc text" to file field "loc title"
  51.   Close file field "loc title"
  52. end mouseUp
  53.  
  54.  
  55.  
  56. -- part 6 (button)
  57. -- low flags: 00
  58. -- high flags: 8000
  59. -- rect: left=451 top=126 right=166 bottom=512
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 1007 / 1007
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Print Text
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   doMenu "Print report..."
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 9 (button)
  76. -- low flags: 00
  77. -- high flags: 8000
  78. -- rect: left=451 top=253 right=297 bottom=512
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 4221 / 4221
  81. -- text alignment: 1
  82. -- font id: 0
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Return
  87. ----- HyperTalk script -----
  88. on mouseUp
  89.   play harpsichord "ee c"
  90.   go to card "contents"
  91. end mouseUp
  92.  
  93.  
  94.  
  95.  
  96. -- part 10 (button)
  97. -- low flags: 00
  98. -- high flags: 8000
  99. -- rect: left=451 top=39 right=84 bottom=512
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 1005 / 1005
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Open Text
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   ask "Import text from what file?"
  111.   if it is empty then exit mouseUp
  112.   put it into fileName
  113.   open file fileName
  114.   read from file fileName for 99999
  115.   put it into field "loc text"
  116.   put fileName into field "loc title"
  117. end mouseUp
  118.  
  119.  
  120. -- part 11 (button)
  121. -- low flags: 00
  122. -- high flags: 8000
  123. -- rect: left=451 top=210 right=254 bottom=511
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 1020 / 1020
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Help
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   show card field "Help field"
  135. end mouseUp
  136.  
  137.  
  138.  
  139. -- part 12 (field)
  140. -- low flags: 81
  141. -- high flags: 0007
  142. -- rect: left=87 top=152 right=296 bottom=357
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 0
  146. -- font id: 3
  147. -- text size: 10
  148. -- style flags: 0
  149. -- line height: 13
  150. -- part name: Help field
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   hide card field "Help field"
  154. end mouseUp
  155.  
  156.  
  157. -- part 13 (button)
  158. -- low flags: 00
  159. -- high flags: 8000
  160. -- rect: left=451 top=168 right=210 bottom=511
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 2 / 2
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: Word Count
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   show field "count field"
  172.   put the number of words of field 1 into docWords
  173.   put "Document has " & docWords & " words in it." into field "count field"
  174. end mouseUp
  175.  
  176.  
  177.  
  178. -- part 15 (field)
  179. -- low flags: 01
  180. -- high flags: 0004
  181. -- rect: left=428 top=19 right=39 bottom=508
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 1
  185. -- font id: 3
  186. -- text size: 12
  187. -- style flags: 256
  188. -- line height: 16
  189. -- part name: Time
  190.  
  191.  
  192. -- part 16 (button)
  193. -- low flags: 00
  194. -- high flags: A000
  195. -- rect: left=451 top=296 right=340 bottom=512
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 25911 / 25911
  198. -- text alignment: 1
  199. -- font id: 0
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: Quit
  204. ----- HyperTalk script -----
  205. on mouseUp
  206.   play harpsichord "ee c"
  207.   wait 1 seconds
  208.   answer "Do You Really Want To Quit?" with "No" or "Yes"
  209.   if it is "No" then exit mouseUp
  210.   play harpsichord tempo 380 "b r c# r b r a# r bw"
  211.   wait 2 seconds
  212.   visual dissolve to gray
  213.   visual dissolve slowly to black
  214.   doMenu "Compact Stack"
  215.   doMenu "Quit HyperCard"
  216. end mouseUp
  217.  
  218.  
  219.  
  220. -- part contents for card part 12
  221. ----- text -----
  222. HyperWrite 1.1
  223. A text editor for HyperCard
  224. by Andr√© Hinds for Fanques, Inc.
  225.  
  226. To create new text, type in a name in the top box and enter the text in the bottom box.
  227.  
  228. To edit an existing Text document, click on Open Text, enter the name of the document (if the Text document is not in the same folder as HyperCard, you must type in the path name to the file) and hit Return. If HyperWrite finds the document, it will insert the name (including path) in the top box and the text into the bottom box. 
  229.  
  230. To save the document you have created or edited, click on Save Text. Unless you specify a path for the saved text in the top box, it will be put in the same disk and folder as HyperCard. NOTE: Do not save an edited Text document under its original name. You must give it a new name, or send it to a different disk or folder.
  231.  
  232. To count the number of words in the document, click on Counter.
  233.  
  234. To print all the text in the big window (even if it doesn't all show on the screen), click on Print. This will take you to the Print report... dialog box. For best results, choose the following settings:
  235.      ‚Ä¢ Copies: (choose any number you want)
  236.      ‚Ä¢ Arrange fields in: columns
  237.      ‚Ä¢ Print text fields from all cards: With the current background
  238.      ‚Ä¢ Which fields: Selected background fields: loc text
  239.      ‚Ä¢ Print the names of: (select nothing here)
  240.      ‚Ä¢ Header: (click on the # icon -- it gives you the page number at the top of each page)
  241. Then click on OK to proceed or Cancel to quit.
  242.  
  243. Fanques, Inc. is a desktop publishing consulting firm. For more information on how we can help you, write to Box 3271, Tulsa, OK 74101.
  244.  
  245.  
  246. -- part contents for background part 23
  247. ----- text -----
  248. Document has 5 words in it.
  249.  
  250. -- part contents for background part 22
  251. ----- text -----
  252. Enter The Name Of The Text File...‚Ä¢Here‚Ä¢
  253.  
  254. -- part contents for background part 21
  255. ----- text -----
  256.  
  257.  
  258.  
  259.  
  260.  
  261.                     Type Your Text In This Space..............................
  262.  
  263. -- part contents for card part 15
  264. ----- text -----
  265. 22:29